
DEFINE BUFFER C FOR sct_det.    
DEFINE BUFFER S FOR sct_det.    
        
FOR EACH C WHERE c.sct_sim = "2004-07C" ,
    EACH S WHERE s.sct_sim = "2004-07S" AND s.sct_site = c.sct_site AND s.sct_part = c.sct_part :

    IF ABS(S.sct_cst_tot - C.sct_cst_tot) > 1.0 AND c.sct_cst_tot <> 0 AND NOT s.sct_part BEGINS "P" THEN
    DISP c.sct_part c.sct_site c.sct_cst_tot LABEL "Cur" S.sct_cst_tot LABEL "Std".
    
END.
